COMMENT ⊗   VALID 00004 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 For screen and file:
C00003 00003	 Hardcopy:
C00005 00004	 Screen
C00006 ENDMK
C⊗;
;;; For screen and file:
(let ((fasload ()))
     (fasload graph2))
(fasload data)

;;; Hardcopy:
;;; Start acronym for GOD files
(filjob-g ↓rchart.god[1,rpg])
(filjob-g ↓cchart.god[1,rpg])
(kiljob-g)

;;; For hardcopy:
(setq *logp* t)

(graph-impls-real-g (mapcar (function car) *all-implementations-flattened*))
(graph-impls-cpu-g (mapcar (function car) *all-implementations-flattened*))

r xgpjob<cr>
rchart.god

r xgpjob<cr>
cchart.god

rchart order:
*impl-order*
(PSL-CRAY S-1 PSL20 S3600 S3600FPA D3 SAIL DEC785CL PSL780 FRANZ780YY 
DEC780CL FRANZ780NY PSL-HP200 PSL-DN160 PSL-HP-UX FRANZ750NY FRANZ780YN 
INTERLISP-10 DEC750CL FRANZ750YY PSL-DN600 PSL750 PSL-DN300 LM2 FRANZ68KYY 
D1 FRANZ750YN FRANZ68KNY INTERLISPVAX780 PERQ NIL750 FRANZ68KYN FRANZ780NN 
DEC730CL FRANZ750NN D2 FRANZ68KNN) 

cchart order:
*impl-order*
(PSL-CRAY S-1 PSL20 SAIL D3 S3600 S3600FPA DEC785CL PSL780 FRANZ780YY 
FRANZ780NY DEC780CL PSL-HP200 PSL-DN160 PSL-HP-UX FRANZ780YN FRANZ750NY 
FRANZ750YY INTERLISP-10 DEC750CL PSL-DN600 PSL750 PSL-DN300 LM2 FRANZ68KYY 
FRANZ750YN D1 FRANZ68KNY INTERLISPVAX780 FRANZ68KYN PERQ NIL750 FRANZ780NN 
FRANZ750NN DEC730CL D2 FRANZ68KNN) 
(#FILE-OUT-|DSK:RCHART.GOD[1,RPG]|-71732 . 0) 
;;; Screen
;;; Start PE

(setq *logp* t)

(graph-impls-real (mapcar #'car *all-implementations-flattened*))
(graph-impls-cpu (mapcar #'car *all-implementations-flattened*))